(set-language-environment): Test unibyte-syntax instead of using a

fixed list of latin-N character sets.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 9abff2d7cd7332f041ac4ff1b758600ae2f59f25..c06f9e35c54d5da81efbc646515908fb4114be3b 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -886,8 +886,7 @@ specifies the character set for the major languages of Western Europe."
        (run-hooks 'exit-language-environment-hook)
        (if (fboundp func) (funcall func))))
   (when (and (not default-enable-multibyte-characters)
-            (member (downcase language-name)
-                    '("latin-1" "latin-2" "latin-3" "latin-4" "latin-5")))
+            (get-language-info language-name 'unibyte-syntax))
     (set-terminal-coding-system (intern (downcase language-name)))
     (standard-display-european-internal))
   (setq current-language-environment language-name)